home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 2 / Mac Magazin and MacEasy Magazine CD - Issue 02.iso / Themen Mac Magazin / Star Writer 2.0 DEMO / DIALOG.IN_ / DIALOG.INC / Dialog.inc next >
Text File  |  1994-02-24  |  5KB  |  159 lines
  1. REM $LIBRARY: 'SBDIALOG'
  2.  
  3. CONST False = 0, True = NOT FALSE, TriState = 1
  4. CONST IsAuto = -32767
  5.  
  6. CONST ColorBLACK = 0, ColorBLUE = 1, ColorGREEN = 2, ColorCYAN = 3
  7. CONST ColorRED = 4, ColorMAGENTA = 5, ColorBROWN = 6, ColorGRAY = 7
  8. CONST ColorLIGHTGRAY = 8, ColorLIGHTBLUE = 9, ColorLIGHTGREEN = 10
  9. CONST ColorLIGHTCYAN = 11, ColorLIGHTRED = 12, ColorLIGHTMAGENTA = 13
  10. CONST ColorYELLOW = 14, ColorWHITE = 15
  11.  
  12. CLASS DialogBase
  13.    Internal AS STRING*4
  14. PROTECTED
  15.    SUB Get EXTERN()
  16.    SUB Set EXTERN()
  17. PUBLIC
  18.    X0       AS INTEGER
  19.    Y0       AS INTEGER
  20.    NX       AS INTEGER
  21.    NY       AS INTEGER
  22.    SUB      SetText  EXTERN (T$)
  23.    FUNCTION GetText  EXTERN () AS STRING
  24.    SUB      SetColor EXTERN (C%)
  25.    SUB      SetTextColor EXTERN (C%)
  26. END CLASS
  27.  
  28. CLASS Control PUBLIC DialogBase
  29. PUBLIC
  30.    Value   AS INTEGER
  31.    Visible AS INTEGER
  32.    Enabled AS INTEGER
  33. END CLASS
  34.  
  35. CONST HasBorder = 1
  36.  
  37. CLASS Dialog PUBLIC DialogBase
  38. END CLASS
  39.  
  40. CLASS FixedText PUBLIC Control
  41. END CLASS
  42.  
  43. CONST IsLeft = 2, IsCenter = 4, IsRight = 8
  44.  
  45. CLASS PushButton PUBLIC Control
  46. END CLASS
  47.  
  48. CONST IsDefault = 2, IsCancel = 4
  49.  
  50. CLASS SymbolButton PUBLIC PushButton
  51. END CLASS
  52.  
  53. CONST UpArrow = 1, DownArrow = 2, LeftArrow = 3, RightArrow = 4
  54.  
  55. CLASS CheckBox PUBLIC Control
  56. END CLASS
  57.  
  58. CONST IsTriState = 8
  59.  
  60. CLASS RadioButton PUBLIC Control
  61. END CLASS
  62.  
  63. CLASS EditField PUBLIC Control
  64. PUBLIC 
  65.    SUB SetTextLen EXTERN (N%)
  66. END CLASS
  67.  
  68. CONST IsMultiLine = 16, HasVScroll = 32, HasHScroll = 64
  69.  
  70. CLASS GroupBox PUBLIC Control
  71. END CLASS
  72.  
  73. CLASS ListBox PUBLIC Control
  74. PUBLIC
  75.    Count AS INTEGER
  76.    SUB      Add EXTERN (T$, OPTIONAL I%)
  77.    SUB      Remove EXTERN (OPTIONAL I%)
  78.    FUNCTION GetIndex EXTERN (T$) AS INTEGER
  79.    FUNCTION GetItem  EXTERN (OPTIONAL I%) AS STRING
  80. END CLASS
  81.  
  82. CLASS ComboBox PUBLIC EditField
  83. PUBLIC
  84.    Count AS INTEGER
  85.    SUB      Add EXTERN (T$, OPTIONAL I%)
  86.    SUB      Remove EXTERN (OPTIONAL I%)
  87.    FUNCTION GetIndex EXTERN (T$) AS INTEGER
  88.    FUNCTION GetItem  EXTERN (OPTIONAL I%) AS STRING
  89. END CLASS
  90.  
  91. CONST IsSorted   = 2
  92. CONST IsDropDown = 4
  93.  
  94. CLASS ScrollBar PUBLIC Control
  95. PUBLIC
  96.    Minimum  AS INTEGER
  97.    Maximum  AS INTEGER
  98.    SmallInc AS INTEGER
  99.    LargeInc AS INTEGER
  100. END CLASS
  101.  
  102. CONST IsHorizontal = 0, IsVertical = 2, IsSynchronous = 4
  103.  
  104. CLASS Bitmap PUBLIC Control
  105. PUBLIC
  106.    SUB Load EXTERN (FILENAME$)
  107. END CLASS
  108.  
  109. CLASS Icon PUBLIC Control
  110. PUBLIC
  111.    SUB Load EXTERN (FILENAME$)
  112. END CLASS
  113.  
  114. CONST DefaultIcon = "#0001"
  115. CONST InfoIcon    = "#0002"
  116. CONST WarnIcon    = "#0003"
  117. CONST ErrorIcon   = "#0004"
  118. CONST QueryIcon   = "#0005"
  119.  
  120. CLASS PopupMenu PUBLIC Control
  121. PUBLIC
  122.    SUB Check  EXTERN (ID%, MODE%)
  123.    SUB Enable EXTERN (ID%, MODE%)
  124.    FUNCTION IsChecked EXTERN (ID%) AS INTEGER
  125.    FUNCTION IsEnabled EXTERN (ID%) AS INTEGER
  126. END CLASS
  127.  
  128. CONST HasCheck   = 64
  129. CONST IsDisabled = 128
  130.  
  131. DECLARE ONEVENT CLICK  EXTERN (P AS Control, LABEL%)
  132. DECLARE ONEVENT CHANGE EXTERN (P AS Control, LABEL%)
  133. DECLARE ONEVENT KEY    EXTERN (P AS Control, LABEL%)
  134. DECLARE ONEVENT ENTER  EXTERN (P AS Control, LABEL%)
  135. DECLARE ONEVENT LEAVE  EXTERN (P AS Control, LABEL%)
  136.  
  137. DECLARE SUB FIXEDTEXT   EXTERN (V AS FixedText  , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  138. DECLARE SUB PUSHBUTTON  EXTERN (V AS PushButton , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  139. DECLARE SUB SYMBOLBUTTON EXTERN(V AS SymbolButton,X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  140. DECLARE SUB CHECKBOX    EXTERN (V AS CheckBox   , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  141. DECLARE SUB RADIOBUTTON EXTERN (V AS RadioButton, X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  142. DECLARE SUB EDITFIELD   EXTERN (V AS EditField  , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  143. DECLARE SUB LISTBOX     EXTERN (V AS ListBox    , X0%, Y0%, NX%, NY%, OPTIONAL FLAGS%)
  144. DECLARE SUB COMBOBOX    EXTERN (V AS ComboBox   , X0%, Y0%, NX%, NY%, OPTIONAL FLAGS%)
  145. DECLARE SUB SCROLLBAR   EXTERN (V AS ScrollBar  , X0%, Y0%, NX%, NY%, OPTIONAL FLAGS%)
  146. DECLARE SUB ICON        EXTERN (V AS Icon       , X0%, Y0%, FILE$, OPTIONAL FLAGS%)
  147. DECLARE SUB BITMAP      EXTERN (V AS Bitmap     , X0%, Y0%, FILE$, OPTIONAL FLAGS%)
  148. DECLARE SUB DIALOG      EXTERN (V AS Dialog     , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$)
  149. DECLARE SUB STARTDIALOG EXTERN ()
  150. DECLARE SUB ENDDIALOG   EXTERN ()
  151. DECLARE SUB GROUPBOX    EXTERN (V AS GroupBox   , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$)
  152. DECLARE SUB ENDGROUP    EXTERN ()
  153. DECLARE SUB POPUPMENU   EXTERN (V AS PopupMenu,  X0%, Y0%, NX%, NY%, OPTIONAL TEXT$)
  154. DECLARE SUB SUBMENU     EXTERN (TEXT$, ID%, OPTIONAL FLAGS%)
  155. DECLARE SUB MENUITEM    EXTERN (TEXT$, ID%, OPTIONAL FLAGS%)
  156. DECLARE SUB BITMAPITEM  EXTERN (TEXT$, ID%, OPTIONAL FLAGS%)
  157. DECLARE SUB SEPARATOR   EXTERN ()
  158. DECLARE SUB ENDMENU     EXTERN ()
  159.